home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 September / Ahoy_Magazine_86-09_1986_Double_L.d64 / Generic Game 3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  529b  |  22 lines
  1. 1 rem commodares problem #29-2:
  2. 2 rem     generic game
  3. 3 rem choosing unequal digits by
  4. 4 rem     henry farkas
  5. 5 rem -- comal solution --
  6. 100 :proc pick'number
  7. 110 :pick$:="0123456789"
  8. 120 :pick2$:=""
  9. 130 :for x:=1 to 4 (NULL)
  10. 140 : y:=rnd(1,len(pick$))
  11. 150 : pick2$:=pick2$+pick$(y)
  12. 160 : case y of
  13. 170 : when 1
  14. 180 :  pick$:=pick$(2:len(pick$))
  15. 190 : when (len(pick$))
  16. 200 :  pick$:=pick$(1:(len(pick$)-1))
  17. 210 : otherwise
  18. 220 :  pick$:=pick$(1:(y-1))                     + pick$((y+1):len(pick$))
  19. 230 : endcase
  20. 240 :endfor x
  21. 250 :endproc pick'number
  22.